Sub ޸ũ()

    Dim ޸ As Comment

    For Each ޸ In ActiveSheet.Comments

        ޸.Shape.TextFrame.AutoSize = True

    Next

End Sub